home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / controls / dynacntr.frm < prev    next >
Text File  |  1993-05-16  |  3KB  |  105 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Dynamic Controls"
  4.    ClientHeight    =   4020
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   7365
  8.    Height          =   4425
  9.    Left            =   1035
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   4020
  13.    ScaleWidth      =   7365
  14.    Top             =   1140
  15.    Width           =   7485
  16.    Begin CommandButton Command3 
  17.       Caption         =   "End"
  18.       Height          =   495
  19.       Left            =   5880
  20.       TabIndex        =   3
  21.       Top             =   240
  22.       Width           =   1215
  23.    End
  24.    Begin TextBox Text1 
  25.       Height          =   855
  26.       Index           =   0
  27.       Left            =   240
  28.       TabIndex        =   0
  29.       Text            =   "Text1"
  30.       Top             =   240
  31.       Width           =   1455
  32.    End
  33.    Begin CommandButton Command1 
  34.       Caption         =   "Add Text Box"
  35.       Height          =   375
  36.       Left            =   240
  37.       TabIndex        =   1
  38.       Top             =   2640
  39.       Width           =   1575
  40.    End
  41.    Begin CommandButton Command2 
  42.       Caption         =   "Delete Text Box"
  43.       Enabled         =   0   'False
  44.       Height          =   375
  45.       Left            =   240
  46.       TabIndex        =   2
  47.       Top             =   3120
  48.       Width           =   1575
  49.    End
  50. End
  51. Option Explicit
  52.  
  53. Dim TextBoxCount As Integer
  54.  
  55. Dim RepeatFactor As Integer
  56.  
  57. Sub Command1_Click ()
  58.     Dim myRed As Integer, myBlue As Integer, myGreen As Integer
  59.  
  60.     myRed = Rnd * 255
  61.     myGreen = Rnd * 255
  62.     myBlue = Rnd * 255
  63.  
  64.     'Get the next array index number
  65.     TextBoxCount = TextBoxCount + 1
  66.  
  67.     'Create the new control dynamically
  68.     Load text1(TextBoxCount)
  69.  
  70.     'Set the position for top left corner of the new control
  71.     'so it won't fall on top of previous control
  72.     If text1(TextBoxCount - 1).Top > .7 * form1.Height Then
  73.         text1(TextBoxCount).Move text1(0).Left + RepeatFactor * 1600, text1(0).Top
  74.         RepeatFactor = RepeatFactor + 1
  75.     Else
  76.         text1(TextBoxCount).Move text1(TextBoxCount - 1).Left + 200, text1(TextBoxCount - 1).Top + 200
  77.     End If
  78.     
  79.     'Give it a random color
  80.     text1(TextBoxCount).BackColor = RGB(myRed, myGreen, myBlue)
  81.  
  82.     'Now, display the new control
  83.     text1(TextBoxCount).Visible = True
  84.  
  85.     command2.Enabled = True
  86. End Sub
  87.  
  88. Sub Command2_Click ()
  89.     Unload text1(TextBoxCount)
  90.     TextBoxCount = TextBoxCount - 1
  91.     If TextBoxCount = 0 Then
  92.         command2.Enabled = False
  93.     End If
  94. End Sub
  95.  
  96. Sub Command3_Click ()
  97.     End
  98. End Sub
  99.  
  100. Sub Form_Load ()
  101.     Randomize Timer
  102.     RepeatFactor = 1
  103. End Sub
  104.  
  105.